home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / rexx / setuptfax.avm < prev    next >
Text File  |  1995-03-09  |  5KB  |  215 lines
  1. /* TITLE: avm:rexx/setuptfax.avm */
  2. /*  reading fax settings and writing to the serialdevice */
  3.  
  4. myvar = getclip('TFaxStp1')
  5. if myvar~ = "" then
  6. do
  7.  cidstring = 'AT'||myvar
  8.  
  9. 'writeline' cidstring
  10. 'readline' '10'
  11. action = rc
  12. select
  13.   when action = 0 then nop
  14.   when action = 10 then signal stdtimedout
  15.   when action = 12 then signal stdabort
  16.   when action = 14 then signal stderror
  17.   when action = 16 then signal stderror
  18.   otherwise signal arexxerror
  19. end
  20.  
  21. 'readline' '10'
  22. action = rc
  23. if action = 0 then value = result
  24. select
  25.   when action = 0 then nop
  26.   when action = 10 then signal stdtimedout
  27.   when action = 12 then signal stdabort
  28.   when action = 14 then signal stderror
  29.   when action = 16 then signal stderror
  30.   otherwise signal arexxerror
  31. end
  32.  
  33. end
  34. myvar = getclip('TFaxID')
  35. if myvar ~= "" then
  36.  do /* if not "" */
  37.    cidstring = 'AT+FLID="'||myvar||'"'
  38.  
  39. 'writeline' cidstring
  40. 'readline' '10'
  41. action = rc
  42. select
  43.   when action = 0 then nop
  44.   when action = 10 then signal stdtimedout
  45.   when action = 12 then signal stdabort
  46.   when action = 14 then signal stderror
  47.   when action = 16 then signal stderror
  48.   otherwise signal arexxerror
  49. end
  50.  
  51. 'readline' '10'
  52. action = rc
  53. if action = 0 then value = result
  54. select
  55.   when action = 0 then nop
  56.   when action = 10 then signal stdtimedout
  57.   when action = 12 then signal stdabort
  58.   when action = 14 then signal stderror
  59.   when action = 16 then signal stderror
  60.   otherwise signal arexxerror
  61. end
  62.  
  63. end
  64. myvar = getclip('TFaxCap')
  65. if myvar ~= "" then
  66. do
  67.   cidstring = 'AT+FDCC='||myvar
  68.  
  69. 'writeline' cidstring
  70. 'readline' '10'
  71. action = rc
  72. select
  73.   when action = 0 then nop
  74.   when action = 10 then signal stdtimedout
  75.   when action = 12 then signal stdabort
  76.   when action = 14 then signal stderror
  77.   when action = 16 then signal stderror
  78.   otherwise signal arexxerror
  79. end
  80.  
  81. 'readline' '10'
  82. action = rc
  83. if action = 0 then value = result
  84. select
  85.   when action = 0 then nop
  86.   when action = 10 then signal stdtimedout
  87.   when action = 12 then signal stdabort
  88.   when action = 14 then signal stderror
  89.   when action = 16 then signal stderror
  90.   otherwise signal arexxerror
  91. end
  92.  
  93. end
  94. myvar = getclip('TFaxStp2')
  95. if myvar~ = "" then
  96. do
  97.  cidstring = 'AT'||myvar
  98.  
  99. 'writeline' cidstring
  100. 'readline' '10'
  101. action = rc
  102. select
  103.   when action = 0 then nop
  104.   when action = 10 then signal stdtimedout
  105.   when action = 12 then signal stdabort
  106.   when action = 14 then signal stderror
  107.   when action = 16 then signal stderror
  108.   otherwise signal arexxerror
  109. end
  110.  
  111. 'readline' '10'
  112. action = rc
  113. if action = 0 then value = result
  114. select
  115.   when action = 0 then nop
  116.   when action = 10 then signal stdtimedout
  117.   when action = 12 then signal stdabort
  118.   when action = 14 then signal stderror
  119.   when action = 16 then signal stderror
  120.   otherwise signal arexxerror
  121. end
  122.  
  123. end
  124. myvar = getclip('TFaxStp3')
  125. if myvar~ = "" then
  126. do
  127.  cidstring = 'AT'||myvar
  128.  
  129. 'writeline' cidstring
  130. 'readline' '10'
  131. action = rc
  132. select
  133.   when action = 0 then nop
  134.   when action = 10 then signal stdtimedout
  135.   when action = 12 then signal stdabort
  136.   when action = 14 then signal stderror
  137.   when action = 16 then signal stderror
  138.   otherwise signal arexxerror
  139. end
  140.  
  141. 'readline' '10'
  142. action = rc
  143. if action = 0 then value = result
  144. select
  145.   when action = 0 then nop
  146.   when action = 10 then signal stdtimedout
  147.   when action = 12 then signal stdabort
  148.   when action = 14 then signal stderror
  149.   when action = 16 then signal stderror
  150.   otherwise signal arexxerror
  151. end
  152.  
  153. end
  154. myvar = getclip('TFaxStp4')
  155. if myvar~ = "" then
  156. do
  157.  cidstring = 'AT'||myvar
  158.  
  159. 'writeline' cidstring
  160. 'readline' '10'
  161. action = rc
  162. select
  163.   when action = 0 then nop
  164.   when action = 10 then signal stdtimedout
  165.   when action = 12 then signal stdabort
  166.   when action = 14 then signal stderror
  167.   when action = 16 then signal stderror
  168.   otherwise signal arexxerror
  169. end
  170.  
  171. 'readline' '10'
  172. action = rc
  173. if action = 0 then value = result
  174. select
  175.   when action = 0 then nop
  176.   when action = 10 then signal stdtimedout
  177.   when action = 12 then signal stdabort
  178.   when action = 14 then signal stderror
  179.   when action = 16 then signal stderror
  180.   otherwise signal arexxerror
  181. end
  182.  
  183. end
  184. myvar = getclip('TFaxStp5')
  185. if myvar~ = "" then
  186. do
  187.  cidstring = 'AT'||myvar
  188.  
  189. 'writeline' cidstring
  190. 'readline' '10'
  191. action = rc
  192. select
  193.   when action = 0 then nop
  194.   when action = 10 then signal stdtimedout
  195.   when action = 12 then signal stdabort
  196.   when action = 14 then signal stderror
  197.   when action = 16 then signal stderror
  198.   otherwise signal arexxerror
  199. end
  200.  
  201. 'readline' '10'
  202. action = rc
  203. if action = 0 then value = result
  204. select
  205.   when action = 0 then nop
  206.   when action = 10 then signal stdtimedout
  207.   when action = 12 then signal stdabort
  208.   when action = 14 then signal stderror
  209.   when action = 16 then signal stderror
  210.   otherwise signal arexxerror
  211. end
  212.  
  213. end
  214.  
  215.